home *** CD-ROM | disk | FTP | other *** search
/ Item MB Quick & Easy 2.0 / Item MB Quick & Easy 2.0.iso / mbfacad / mb37398.lsp < prev    next >
Text File  |  1998-03-15  |  2KB  |  74 lines
  1. ;=============373.98 Profil 40x40-45°, schwarz
  2.  
  3. (EAITDBL "0037398")
  4. (EAITmsg "mb_mld10" "\n" "002" nil) (princ "........") (princ EAITnrx) (princ "\n")
  5. (princ)
  6.  
  7. (defun MB37398 (RI ART / P1 Li Wi KR WINFO)
  8.  
  9.    (EAITDBL "0037398")
  10.    (princ (strcat "\n\n" EAITbez1))
  11.    (EAITvari)
  12.    (if (not EAITlpr)(setq EAITlpr 0.0))
  13.    (EAITvars)
  14.    (EAITbpt nil nil nil)
  15.    (setq P1 (getpoint))
  16.    (if (= P1 nil)(setq P1 (EAITrpt)))
  17.    (EAITmsg "mb_mld1" "\n" "005" " <")(princ EAITlpr)(princ "> ")  ;Laenge < >
  18.    (initget (+ 2 4))
  19.    (setq Li (getdist " "))
  20.    (if (= Li nil)(setq Li EAITlpr))
  21.    (while (or (> Li EAITlmax)(<= Li EAITlmin))
  22.       (EAITmsg "mb_mld1" "\n\n" "006" "  ")(princ EAITlmin)(princ " / ")(princ EAITlmax)(EAITmsg "mb_mld1" " " "007" nil)
  23.       (EAITmsg "mb_mld1" "\n" "005" " <")(princ EAITlpr)(princ "> ")
  24.       (initget (+ 2 4))
  25.       (setq Li (getdist " "))
  26.       (if (= Li nil)(setq Li EAITlpr))
  27.    )
  28.    (setvar "OSMODE" 0)
  29.  
  30.    ;1 Nachkommastelle
  31.    (setq Li (/ (float (fix (+ (* Li 10.0) 0.5))) 10))
  32.    (princ "\n  -> ")(princ Li)
  33.  
  34.    (cond ((OR (= RI "H")(= RI "h"))
  35.        (setq Wi 0)
  36.       )
  37.       ((OR (= RI "V")(= RI "v")) 
  38.        (setq Wi (/ Pi 2))
  39.       )
  40.       (T
  41.        (initget 1)
  42.           (EAITmsg "mb_mld10" "\n" "004" nil)     ;Winkel
  43.           (setq Wi (getangle P1))
  44.       )
  45.    )
  46.  
  47.    (initget 1)
  48.    (EAITmsg "mb_mld10" "\n" "008" nil)           ;Konstruktionsrichtung
  49.    (setq KR (getangle P1))
  50.  
  51.    (if EAITpro8 nil (load (strcat EAITpfn "EAITpro8")))
  52.    (cond ((OR (= ART "G")(= ART "g"))          ;---Ansicht der glatten Seite
  53.        (EAITpro8 "40x40-45" P1 Li Wi KR)
  54.       )
  55.          ((OR (= ART "N")(= ART "n"))          ;---Ansicht der Nutseite
  56.        (EAITpro8 "40x40" P1 Li Wi KR)
  57.       )
  58.    )
  59.    (setq Li (rtos (abs Li) 2 1))
  60.    (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 WINFO 5) "" "" ""
  61.                    EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 Li (rtos EAITb1 2 1) EAITnr
  62.    )
  63.  
  64.    ;letzte Laenge (Li) merken
  65.    (setq Li (atof Li))
  66.    (setq EAITlpr Li)
  67.  
  68.    (EAITvarz2)
  69.    (princ)
  70.  
  71. );defun MB37398
  72.  
  73. (princ)
  74.